home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / utils / graphtal.lzh / Graphtal.Amiga / Examples / spiral.lsys < prev    next >
Encoding:
Text File  |  1992-10-30  |  297 b   |  47 lines
  1. /*
  2.  * Try this one with the rayshade driver.
  3.  */
  4.  
  5. lsystem Spiral;
  6.  
  7. const step = 100;
  8.  
  9. table Spiral
  10. {
  11.   A ->  F(10) pt(30) A;
  12.   wi(w) -> wi(w*1.05);
  13.   F(l) -> F(l*1.05);
  14. };
  15.  
  16. attributes {
  17.  axiom  wi(3) G(5) tu(110) A;
  18.  derivation Spiral(step);
  19.  
  20.  coneres 20;
  21.  sphereres 5;
  22. };
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.